From 1b691d5c6cfde2c11531dba1e439cd7a2d7b11f9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 27 May 1993 23:50:21 +0000 Subject: [PATCH] (x-create-frame-with-faces): Handle reverseVideo resource. --- lisp/faces.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/faces.el b/lisp/faces.el index a0359e6d055..d6095380a78 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -743,7 +743,9 @@ If NOERROR is non-nil, return nil on failure." (set-frame-face-alist frame faces) (if (cdr (or (assq 'reverse parameters) - (assq 'reverse default-frame-alist))) + (assq 'reverse default-frame-alist) + (cons nil + (x-get-resource "reverseVideo" "Reversevideo")))) (let ((params (frame-parameters frame))) (modify-frame-parameters frame -- 2.30.2